home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / demos / databasepro3 / arexx / auto / alleschließen.rexx next >
Encoding:
OS/2 REXX Batch file  |  1996-01-19  |  315 b   |  24 lines
  1. /* Schließt alle Bases ohne Sicherheitsabfrage */
  2.  
  3. Options RESULTS
  4.  
  5. ADDRESS DataBase
  6.  
  7. Request "_schließen|_Abbruch" "ACHTUNG! alle Dateien werden geschlossen."
  8. klick = RC
  9.  
  10. IF klick = 1 THEN
  11.   DO
  12.   Display Off
  13.   nr = 1
  14.   DO WHILE nr < 6
  15.     Base nr
  16.     Close
  17.     nr = nr + 1
  18.   END
  19.   Display On
  20.   Base 1
  21. END
  22.  
  23. ADDRESS
  24.